<% if selecttype=2 then if not IsNumeric(searchkeys) then response.write"" response.end end if sql="select id,Title,hits,ClassName from article where id="&searchkeys&" order by id" else if se_classname="" then sql="select id,Title,hits,ClassName from article where title like '%"&searchkeys&"%' order by ClassName" else sql="select id,Title,hits,ClassName from article where ClassName='"& se_ClassName &"' and title like '%"&searchkeys&"%' order by id" end if end if Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.Write("") else rs.PageSize=newsperpage page=clng(request("page")) if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page pp=1 for j=1 to rs.PageSize Title = rs("Title") turl="..\article.asp?id="&rs("id") %> <% rs.movenext pp=pp+1 if rs.eof then exit for next %> <% end if set rs=nothing conn.close set conn=nothing %>

信息列表
ID号	标题	浏览数	所属类别	操作
暂时没有记录
<%=rs("id")%>	<%=Title%>	<%=rs("hits")%>	<%=rs("classname")%>	修改 &page=<%=Page%>&searchkeys=<%=searchkeys%>&selecttype=<%=selecttype%>&se_ClassName=<%=se_ClassName%>','您确定要删除？')">删除
<%if Page<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次："&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页" response.write " 转到：" response.write " " %>